home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-20
/
nrd33.zip
/
RTTYOFF.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-05-12
|
556b
|
28 lines
{$I-}
{$V-}
{$M 65520,0,640000}
{ ROUTINE: R T T Y O F F
PURPOSE: Turn off RTTY mode in an NRD535. Run before using NRD
USAGE: rttyoff
AUTHOR: Tom Whiteside 11505 Oak View, Austin, TX 78759 (512) 258-5924
REVISION: 1.0 05-12-91 TGW Initial Release
}
program rttyoff(input,output);
uses async, crt, dos, screen, nrdio;
begin
init_com;
write_com(COM_NRD,'H1');
write_com(COM_NRD,'X0');
delay(500);
write_com(COM_NRD,'H0');
home;
gotoxy(2,5);
writeln(output,'RTTY Output mode disabled');
end.